home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / MISCELLA / SPLINE10.ZIP / VBLIB.BAS < prev   
BASIC Source File  |  1993-12-27  |  461b  |  17 lines
  1. 'Copyright (C) Andrew S. Dean 1993
  2. Option Explicit
  3.  
  4. Sub CenterForm (F As Form)
  5.    ' Center the specified form within the screen
  6.    F.Move (Screen.Width - F.Width) \ 2, (Screen.Height - F.Height) \ 2
  7. End Sub    ' CenterForm()
  8.  
  9. Sub UnloadOnEscape (KeyAscii As Integer)
  10.    ' Escape Key disables all dialogs.
  11.    ' This relies on KeyPreview being set for the form.
  12.    If (KeyAscii = KEY_ESCAPE) Then
  13.       Unload Screen.ActiveForm
  14.    End If
  15. End Sub
  16.  
  17.